library(ggplot2)
这里把150km段赋到km298了
data_railway <- read.csv("2020-11-15成渝高铁上行成都局1车在前3号弓_All.csv")
km298 <- data_railway[596224:600252,]
data_long <- reshape(
data = km298,
varying = list(c("压力1", "压力2", "压力3", "压力4")),
direction = "long",
v.names = "Pressure_Value",
timevar = "Pressure_Type",
times = c("压力1", "压力2", "压力3", "压力4")
)
ggplot(data_long, aes(x = 公里标, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于公里标的散点图",
x = "公里标",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 采样点, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于采样点的散点图",
x = "采样点",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 垂加基, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加基的散点图",
x = "垂加基",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 横加基, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于横加基的散点图",
x = "横加基",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 温度, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于温度的散点图",
x = "温度",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 垂加, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加的散点图",
x = "垂加",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 垂加1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加1的散点图",
x = "垂加1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 垂加2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加2的散点图",
x = "垂加2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 垂加3, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加3的散点图",
x = "垂加3",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 垂加4, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于垂加4的散点图",
x = "垂加4",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 滑板1压力, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于滑板1压力的散点图",
x = "滑板1压力",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 滑板2压力, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于滑板2压力的散点图",
x = "滑板2压力",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 无补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于无补偿接触力的散点图",
x = "无补偿接触力",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 有补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于有补偿接触力的散点图",
x = "有补偿接触力",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 空气动力补偿接触力, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于空气动力补偿接触力的散点图",
x = "空气动力补偿接触力",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 硬点, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于硬点的散点图",
x = "硬点",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 冲击, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于冲击的散点图",
x = "冲击",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 接触拉出值, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于接触拉出值的散点图",
x = "接触拉出值",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 接触导高, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于接触导高的散点图",
x = "接触导高",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 网流, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于网流的散点图",
x = "网流",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 网压, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于网压的散点图",
x = "网压",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 纵加, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于纵加的散点图",
x = "纵加",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 纵加1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于纵加1的散点图",
x = "纵加1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 纵加2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于纵加2的散点图",
x = "纵加2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 纵加3, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于纵加3的散点图",
x = "纵加3",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 纵加4, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于纵加4的散点图",
x = "纵加4",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 火花次数, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于火花次数的散点图",
x = "火花次数",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 火花时间, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于火花时间的散点图",
x = "火花时间",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 保留1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于保留1的散点图",
x = "保留1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 保留2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于保留2的散点图",
x = "保留2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 保留3, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于保留3的散点图",
x = "保留3",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 保留4, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于保留4的散点图",
x = "保留4",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 速度, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于速度的散点图",
x = "速度",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 非接触导高1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触导高1的散点图",
x = "非接触导高1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 非接触导高2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触导高2的散点图",
x = "非接触导高2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 非接触拉出值1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触拉出值1的散点图",
x = "非接触拉出值1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 非接触拉出值2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触拉出值2的散点图",
x = "非接触拉出值2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 非接触磨耗1, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触磨耗1的散点图",
x = "非接触磨耗1",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 非接触磨耗2, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于非接触磨耗2的散点图",
x = "非接触磨耗2",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 接触线坡度, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于接触线坡度的散点图",
x = "接触线坡度",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
ggplot(data_long, aes(x = 吊悬, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于吊悬的散点图",
x = "吊悬",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")+
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula = 'y ~ s(x, bs = "cs")'
## Warning: Failed to fit group 1.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 2.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 3.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
## Warning: Failed to fit group 4.
## Caused by error in `smooth.construct.cr.smooth.spec()`:
## ! x has insufficient unique values to support 10 knots: reduce k.
ggplot(data_long, aes(x = 功率, y = Pressure_Value, color = Pressure_Type)) +
geom_point(alpha = 0.6) +
labs(
title = "压力1-4 关于功率的散点图",
x = "功率",
y = "压力值",
color = "压力类型"
) +
theme_minimal() +
scale_color_brewer(palette = "Set1")
data_long <- reshape(
data = km298,
varying = list(c("火花次数")),
direction = "long",
v.names = "firespark_Value",
timevar = "firespark_Type",
times = c("火花次数")
)
ggplot(km298, aes(x = 公里标, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于公里标的散点图",
x = "公里标",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 采样点, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于采样点的散点图",
x = "采样点",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 压力1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于压力1的散点图",
x = "压力1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 压力2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于压力2的散点图",
x = "压力2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 压力3, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于压力3的散点图",
x = "压力3",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 压力4, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于压力4的散点图",
x = "压力4",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加基, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加基的散点图",
x = "垂加基",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 横加基, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于横加基的散点图",
x = "横加基",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 温度, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于温度的散点图",
x = "温度",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加的散点图",
x = "垂加",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加1的散点图",
x = "垂加1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加2的散点图",
x = "垂加2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加3, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加3的散点图",
x = "垂加3",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加4, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于垂加4的散点图",
x = "垂加4",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 滑板1压力, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于滑板1压力的散点图",
x = "滑板1压力",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 滑板2压力, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于滑板2压力的散点图",
x = "滑板2压力",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 无补偿接触力, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于无补偿接触力的散点图",
x = "无补偿接触力",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 有补偿接触力, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于有补偿接触力的散点图",
x = "有补偿接触力",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 空气动力补偿接触力, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于空气动力补偿接触力的散点图",
x = "空气动力补偿接触力",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 硬点, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于硬点的散点图",
x = "硬点",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 冲击, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于冲击的散点图",
x = "冲击",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 接触拉出值, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于接触拉出值的散点图",
x = "接触拉出值",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 接触导高, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于接触导高的散点图",
x = "接触导高",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 网流, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于网流的散点图",
x = "网流",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 网压, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于网压的散点图",
x = "网压",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于纵加的散点图",
x = "纵加",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于纵加1的散点图",
x = "纵加1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于纵加2的散点图",
x = "纵加2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加3, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于纵加3的散点图",
x = "纵加3",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加4, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于纵加4的散点图",
x = "纵加4",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 火花时间, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于火花时间的散点图",
x = "火花时间",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 保留1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于保留1的散点图",
x = "保留1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 保留2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于保留2的散点图",
x = "保留2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 保留3, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于保留3的散点图",
x = "保留3",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 保留4, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于保留4的散点图",
x = "保留4",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 速度, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于速度的散点图",
x = "速度",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 支柱, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于支柱的散点图",
x = "支柱",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触导高1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触导高1的散点图",
x = "非接触导高1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触导高2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触导高2的散点图",
x = "非接触导高2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触拉出值1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触拉出值1的散点图",
x = "非接触拉出值1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触拉出值2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触拉出值2的散点图",
x = "非接触拉出值2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触磨耗1, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触磨耗1的散点图",
x = "非接触磨耗1",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触磨耗2, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于非接触磨耗2的散点图",
x = "非接触磨耗2",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 接触线坡度, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于接触线坡度的散点图",
x = "接触线坡度",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 吊悬, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于吊悬的散点图",
x = "吊悬",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 功率, y = 火花次数)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花次数关于功率的散点图",
x = "功率",
y = "火花次数"
) +
theme_minimal()
ggplot(km298, aes(x = 公里标, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于公里标的散点图",
x = "公里标",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 采样点, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于采样点的散点图",
x = "采样点",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 压力1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于压力1的散点图",
x = "压力1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 压力2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于压力2的散点图",
x = "压力2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 压力3, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于压力3的散点图",
x = "压力3",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 压力4, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于压力4的散点图",
x = "压力4",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加基, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加基的散点图",
x = "垂加基",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 横加基, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于横加基的散点图",
x = "横加基",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 温度, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于温度的散点图",
x = "温度",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加的散点图",
x = "垂加",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加1的散点图",
x = "垂加1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加2的散点图",
x = "垂加2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加3, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加3的散点图",
x = "垂加3",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 垂加4, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于垂加4的散点图",
x = "垂加4",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 滑板1压力, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于滑板1压力的散点图",
x = "滑板1压力",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 滑板2压力, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于滑板2压力的散点图",
x = "滑板2压力",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 无补偿接触力, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于无补偿接触力的散点图",
x = "无补偿接触力",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 有补偿接触力, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于有补偿接触力的散点图",
x = "有补偿接触力",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 空气动力补偿接触力, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于空气动力补偿接触力的散点图",
x = "空气动力补偿接触力",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 硬点, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于硬点的散点图",
x = "硬点",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 冲击, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于冲击的散点图",
x = "冲击",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 接触拉出值, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于接触拉出值的散点图",
x = "接触拉出值",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 接触导高, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于接触导高的散点图",
x = "接触导高",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 网流, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于网流的散点图",
x = "网流",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 网压, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于网压的散点图",
x = "网压",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于纵加的散点图",
x = "纵加",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于纵加1的散点图",
x = "纵加1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于纵加2的散点图",
x = "纵加2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加3, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于纵加3的散点图",
x = "纵加3",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 纵加4, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于纵加4的散点图",
x = "纵加4",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 火花次数, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于火花次数的散点图",
x = "火花次数",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 保留1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于保留1的散点图",
x = "保留1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 保留2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于保留2的散点图",
x = "保留2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 保留3, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于保留3的散点图",
x = "保留3",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 保留4, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于保留4的散点图",
x = "保留4",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 速度, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于速度的散点图",
x = "速度",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 支柱, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于支柱的散点图",
x = "支柱",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触导高1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触导高1的散点图",
x = "非接触导高1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触导高2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触导高2的散点图",
x = "非接触导高2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触拉出值1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触拉出值1的散点图",
x = "非接触拉出值1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触拉出值2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触拉出值2的散点图",
x = "非接触拉出值2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触磨耗1, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触磨耗1的散点图",
x = "非接触磨耗1",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 非接触磨耗2, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于非接触磨耗2的散点图",
x = "非接触磨耗2",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 接触线坡度, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于接触线坡度的散点图",
x = "接触线坡度",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 吊悬, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于吊悬的散点图",
x = "吊悬",
y = "火花时间"
) +
theme_minimal()
ggplot(km298, aes(x = 功率, y = 火花时间)) +
geom_point(alpha = 0.6, color = "steelblue") + # 直接设置颜色参数
labs(
title = "火花时间关于功率的散点图",
x = "功率",
y = "火花时间"
) +
theme_minimal()